ocr: vsbLSInv Properties #D D. - - - lapenapled True wlaborder 43 ovisible True VGONtLine Sub GONxtLine0 Decrement the spinner, but enforce the minimum value. ScrollPos = SCrOLIPOS - - SCIOlLAmtLIne IF ScrollPos < ScrollMin THEN SCIOLIPOS = ScrollMin VGoPrvLine Sub GoPrvLine0 Increment the spinner, but enforce the maximum value. ScrollPos - ScrollPos + ScrollamtLine IF ScrollPos > ScrollMax THEN ScrollPos = ScrollMax VPostChange Sub PostChange0 Set the spinner value fldLsInv.Value = ScrollPos
